Option Explicit
Sub F_Sample014()
    'ոF_Data.xls F_Data01
    'o̷|NոƼgJAYOɮ׶}ҤܽХC
    Dim myCnc1   As String
    Dim myCnc2   As String
    Dim myCnc3   As String
    Dim myCmd    As String
    Dim myQryTbl As QueryTable
    Dim myFileName As String
    myFileName = "F_Data.xls"               'ŪJɮ
    Worksheets.Add                          'sWu@
    myCnc1 = "ODBC;"
    myCnc2 = "DBQ=" & ThisWorkbook.Path & "\" & myFileName & ";"
    myCnc3 = "Driver={Microsoft Excel Driver (*.xls)};"
    'myCnc3 = "Driver={Driver do Microsoft Excel(*.xls)};"
    'myCnc3 = "Driver={Microsoft Excel-Treiber (*.xls)};"
    'HSQLӫwŪJ
    myCmd = "SELECT * FROM [F_Data01$]"
    'myCmd = "SELECT * FROM [F_Data01$C1:f10]"
    'myCmd = "SELECT * FROM [F_Data01$] Where  >50"
    'myCmd = "SELECT * FROM [F_Data01$] Where Wri Like 's%'"
    'myCmd = "SELECT * FROM [F_Data01$A10:F20]"
    With ActiveSheet.QueryTables.Add( _
       Connection:=myCnc1 & myCnc2 & myCnc3, _
       Destination:=Range("A1")) 'wŪӷ
       .CommandText = myCmd
       .Refresh
    End With
End Sub


